home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / HAWKEE20.ZIP / PRO20.ZIP / REMOTE.INI < prev    next >
INI File  |  1997-01-08  |  37KB  |  678 lines
  1. [Variables]
  2. n0=%idle 1200
  3. n1=%allowed 2
  4. n2=%swear Off
  5. n3=%flood 4
  6. n4=%channel On
  7. n5=%chanflood 6
  8. n6=%nickflood 3
  9. n7=%number 7
  10. n8=%active On
  11. n9=%ratiostatus On
  12. n10=%gamble On
  13. n11=%joinad Off
  14. n12=%block Off
  15. n13=%ratio 2
  16. n14=%start 200000
  17. n15=%horse1 Snibbug
  18. n16=%horse2 Zoom
  19. n17=%horse3 Vrooom
  20. n18=%maxsends 20
  21. n19=%maxgets 5
  22. n20=%messages 6
  23. n21=%go 5
  24. n22=%ready 12
  25. n23=%away 0
  26. n24=%loop 1
  27. n25=%currentad 100
  28.  
  29. [Commands]
  30. n0=15:DCC CHAT:{ }
  31. n1=1:DCC CHAT: {
  32. n2=  if ($parm5 < 25) {
  33. n3=    .ctcp $nick reply Dcc Chat bomb cancelled -=Hawkee=- Pro v2.0
  34. n4=    notice $me $nick $+ ! $+ $address $+ : attempted Port $parm5 Chat Bomb.
  35. n5=    halt
  36. n6=  }
  37. n7=}
  38. n8=1:DCC SEND: {
  39. n9=  if $parm5 < 25 && $parm5 > 0 {
  40. n10=    .ctcp $nick reply Sorry, Port $parm5 fake file:  $+ $parm3 $+  was not accepted Hawkee Pro v2.0
  41. n11=    echo 4 Fake File: $parm3 From: $nick $+ ! $+ $address
  42. n12=    halt
  43. n13=  }
  44. n14=  elseif $get(0) >= %maxsends { msg $nick Sorry, you have exceeded the maximum number of files I can be receiving at one time, please try again later | halt }
  45. n15=  elseif %ratiostatus == on {
  46. n16=    %temp1 = $lof( $getdir [ $+ [ $parm3 ] ] ) 
  47. n17=    set %getdirfile $getdir $+ $parm3
  48. n18=    if ($lof($findfile(%directory,$parm3)) == $parm6) { msg $nick Sorry, the file you are sending already exists on my hard drive under $findfile(%directory,$parm3) Hawkee Pro v2.0 | halt }
  49. n19=    elseif $lof(%getdirfile) == $parm6 { msg $nick Sorry, the file you are sending has already been uploaded to my collection Hawkee Pro v2.0 | halt }
  50. n20=    else {  /msg $nick Upload of $parm3 detected.  You will receive credits when it is complete }
  51. n21=  }
  52. n22=}
  53. n23=1:FSERVE:.ctcp $nick Reply Fserve Access command  $+ %command $+  Ratio is 1: $+ %ratio
  54. n24=1,banned,ircop:*:{
  55. n25=  inc % $+ $nick $+ flood 1 
  56. n26=  .timer 1 10 unset % $+ $nick $+ flood
  57. n27=  if % [ $+ [ $nick [ $+ [ flood ] ] ] ] == %flood {
  58. n28=    ignore -t *!*@ $+ $site
  59. n29=    .timer 1 60 ignore -r *!*@ $+ $site
  60. n30=    .ctcp $nick reply Hawkee Pro v2.0 Flood protection Enabled You have been ignored for 60 seconds
  61. n31=    .timer 1 60 .ctcp $nick reply Hawkee Pro v2.0 Flood protection Disabled
  62. n32=    unset % $+ $nick $+ flood
  63. n33=  }
  64. n34=}
  65.  
  66. [Events]
  67. n0=#checkdomain disabled
  68. n1=1:on dns: {
  69. n2=  if $raddress != $null { set %connect $longip($raddress) | .timer300 off | echo 12 -a Detected DNS entry for POP server:2 %pop | echo 12 -a You may check your mail by pressing2 F1 | .disable #checkdomain }
  70. n3=  else invalid
  71. n4=  halt
  72. n5=}
  73. n6=#checkdomain end
  74. n7=#fserve start
  75. n8=ircop:on text:%command:#:if %block == On halt | else { fserve $nick 50 %directory %welcome | .auser 1,ircop $nick }
  76. n9=1:on text:%command:#:fserve $nick 50 %directory %welcome
  77. n10=banned:on text:%command:*:notice $nick Sorry $nick, you're banned from my fserve | /notice $nick Reason: % [ $+ [ $nick [ $+ ban ] ] ]
  78. n11=1:on text:!list:#:notice $nick Fserve Access command  $+ %command $+  Ratio is 1: $+ %ratio
  79. n12=#fserve end
  80. n13=1:on quit:halt
  81. n14=1:on text:%command:*:/notice $nick Sorry %command is shut down at the moment.
  82. n15=#channel start
  83. n16=1:on text:*:#: {
  84. n17=  if %swear == on && ( fuck isin $parms || shit isin $parms || dick isin $parms || faggot isin $parms || pussy isin $parms || bitch isin $parms || gay isin $parms ) { if $opin($chan) == true kban $chan $site $nick 2 }
  85. n18=  inc % $+ $nick $+ chanflood  
  86. n19=  .timer 1 2 unset % $+ $nick $+ chanflood
  87. n20=  if $len($parms) >= 400 && $opin($chan) == true kban $chan $site $nick 4
  88. n21=  if % [ $+ [ $nick [ $+ [ chanflood ] ] ] ] == %chanflood && $opin($chan) == true {
  89. n22=    kban $chan $site $nick 1
  90. n23=    unset % $+ $nick $+ chanflood
  91. n24=  }
  92. n25=}
  93. n26=1:on action:*:#: {
  94. n27=  if %swear == on && ( fuck isin $parms || shit isin $parms || dick isin $parms || faggot isin $parms || pussy isin $parms || bitch isin $parms || gay isin $parms ) { if $opin($chan) == true kban $chan $site $nick 2 }
  95. n28=  inc % $+ $nick $+ chanflood  
  96. n29=  .timer 1 2 unset % $+ $nick $+ chanflood
  97. n30=  if $len($parms) >= 400 && $opin($chan) == true kban $chan $site $nick 4
  98. n31=  if % [ $+ [ $nick [ $+ [ chanflood ] ] ] ] == %chanflood && $opin($chan) == true {
  99. n32=    kban $chan $site $nick 1
  100. n33=    unset % $+ $nick $+ chanflood
  101. n34=  }
  102. n35=}
  103. n36=1:on nick: {
  104. n37=  inc % $+ $site $+ nickflood  
  105. n38=  .timer 1 5 unset % $+ $site $+ nickflood
  106. n39=  if % [ $+ [ $site [ $+ [ nickflood ] ] ] ] == %nickflood && $opin($chan) == true {
  107. n40=    kban $chan $site $nick 3
  108. n41=    unset % $+ $site $+ nickflood
  109. n42=  }
  110. n43=}
  111. n44=#channel end
  112. n45=15:on nick:.ruser 15 $nick | .auser 15 $newnick
  113. n46=15:on join:#: { 
  114. n47=  echo 12 $chan 2Hawkee12 Updating info for 2 $+ $chan $+ 12 
  115. n48=  set % $+ $chan joining
  116. n49=  .raw who $chan
  117. n50=}
  118. n51=15:on part:#: {
  119. n52=  set %loop 1
  120. n53=  :count
  121. n54=  if ( $nick(0,$chan) < %loop ) goto next
  122. n55=  if ( $level($address($nick(%loop,$chan),1)) == ircop ) .ruser ircop $address($nick(%loop,$chan),1)
  123. n56=  inc %loop
  124. n57=  goto count
  125. n58=  :next
  126. n59=  if %advertise [ $+ [ $chan ] ] == $null { halt }
  127. n60=  .timer $+ %advertise [ $+ [ $chan ] ] off
  128. n61=  echo 2 -a Advertisement deactivated in:12 $chan
  129. n62=  unset %advertise $+ $chan
  130. n63=}
  131. n64=15:on kick:#: {
  132. n65=  set %loop 1
  133. n66=  :count
  134. n67=  if ( $nick(0,$chan) < %loop ) goto next
  135. n68=  if ( $level($address($nick(%loop,$chan),2)) == ircop ) .ruser ircop $address($nick(%loop,$chan),3)
  136. n69=  inc %loop
  137. n70=  goto count
  138. n71=  :next
  139. n72=}
  140. n73=1:on join:#: { 
  141. n74=  if $ial($address($nick,2),0) > 1 {
  142. n75=    set % $+ [ $site ] 
  143. n76=    if $in($site,$chan) == $ial($address($nick,2),0) {
  144. n77=      echo 2 $chan Attention:12 clones detected: [ % [ $+ [ $site ] ] ] 
  145. n78=      echo 12 $chan Cloning origin: 10 $+ $site $+ 2
  146. n79=      if $ial($address($nick,2),0) > %allowed && $opin($chan) == true {
  147. n80=        mode $chan +b *!*@ $+ $site | .timer 1 10 mode $chan -b *!*@ $+ $site 
  148. n81=        kick $chan $nick $ial($address($nick,2),0) nicks detected at  $+ $site $+ 
  149. n82=      }
  150. n83=    }
  151. n84=  }
  152. n85=  unset % $+ $site
  153. n86=  set %chan $chan 
  154. n87=  raw -q who $nick
  155. n88=}
  156. n89=ircop:on kick:#:.ruser ircop $address($nick,1)
  157. n90=ircop:on part:#:.ruser ircop $address($nick,1)
  158. n91=ircop:on quit:.ruser ircop $address($nick,1)
  159. n92=1:on serv:stats: {
  160. n93=  if ( % [ $+ [ $nick [ $+ [ leech ] ] ] ] == on ) { /msg = $+ $nick You have full leech access | /msg = $+ $nick Consider yourself lucky... | halt }
  161. n94=  else { /msg = $+ $nick You currently have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes of download credit. | halt }
  162. n95=}
  163. n96=8:on serv:*:/msg = $+ $nick Sorry, my fserve has been shut down... | /msg = $+ $nick Reason: %shutdown | /close -f $nick
  164. n97=6:on serv:*:/msg = $+ $nick Sorry, you have just been banned from my fserve. | /close -f $nick
  165. n98=#gamble start
  166. n99=1:on serv:!gamble: {
  167. n100=  msg = $+ $nick *********************************************
  168. n101=  msg = $+ $nick  Hawkee Pro v2.0  
  169. n102=  msg = $+ $nick  Stats = current credit status      
  170. n103=  msg = $+ $nick  Pull = win free credits at the slots    
  171. n104=  msg = $+ $nick  Race = bet on your favorite horse for credits  
  172. n105=  msg = $+ $nick  Blackjack = try your luck at blackjack
  173. n106=  msg = $+ $nick *********************************************
  174. n107=  halt
  175. n108=}
  176. n109=1:on serv:Blackjack: {
  177. n110=  if ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  < 1 ) goto loser
  178. n111=  else goto game
  179. n112=  :loser
  180. n113=  /msg = $+ $nick Sorry bub, you're outta credits
  181. n114=  /msg = $+ $nick Upload to get some more...
  182. n115=  halt
  183. n116=  :game
  184. n117=  /msg = $+ $nick Hawkee Pro v2.0
  185. n118=  /msg = $+ $nick **************
  186. n119=  /msg = $+ $nick * BLACKJACK! *
  187. n120=  /msg = $+ $nick **************
  188. n121=  /msg = $+ $nick You have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits
  189. n122=  /msg = $+ $nick How many would you like to bet?
  190. n123=  /.auser 4 $nick
  191. n124=  halt
  192. n125=}
  193. n126=4:on serv:*: {
  194. n127=  if (( $len( [ $parm1 ] ) > 9 ) || ( $parm1 < 0 )) goto toobig
  195. n128=  if ( $parm1 > % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] ) goto tryagain
  196. n129=  else goto finish
  197. n130=  :toobig
  198. n131=  /msg = $+ $nick Sorry...
  199. n132=  /msg = $+ $nick The number you have entered is out of range
  200. n133=  /msg = $+ $nick Please enter a number between 1 and 999999999
  201. n134=  halt
  202. n135=  :tryagain
  203. n136=  /msg = $+ $nick Come on, you don't have $parm1 credits 
  204. n137=  /msg = $+ $nick Make a smaller bet... 
  205. n138=  halt
  206. n139=  :finish
  207. n140=  /set % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] $parm1
  208. n141=  /msg = $+ $nick OK, here's a couple cards to start you off:
  209. n142=  /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ] $r(0,13)
  210. n143=  /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ] $r(0,13)
  211. n144=  /set % [ $+ [ $nick [ $+ [ bj [ $+ [ cards ] ] ] ] ] ] 2
  212. n145=  /set % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 0
  213. n146=  /set % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 0
  214. n147=  :hand
  215. n148=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  > 10 ) /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 10
  216. n149=  else  /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ] 
  217. n150=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  > 10 ) /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 10
  218. n151=  else  /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ] 
  219. n152=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 0 ) { /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  A | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 11 | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 1 }
  220. n153=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 10 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  T
  221. n154=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 11 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  J
  222. n155=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 12 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  Q
  223. n156=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  == 13 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ]  K 
  224. n157=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 0 ) { /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  A | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 11 | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 1 }
  225. n158=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 10 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  T
  226. n159=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 11 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  J
  227. n160=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 12 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  Q
  228. n161=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  == 13 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ]  K 
  229. n162=  msg = $+ $nick /-----\     /-----\
  230. n163=  msg = $+ $nick |.....|       |.....|
  231. n164=  msg = $+ $nick |.. $+ % [ $+ [ $nick [ $+ [ bj [ $+ [ 1 ] ] ] ] ] ] $+ ..|       |.. $+ % [ $+ [ $nick [ $+ [ bj [ $+ [ 2 ] ] ] ] ] ] $+  ..|
  232. n165=  msg = $+ $nick |.....|       |.....|
  233. n166=  msg = $+ $nick \-----/     \-----/
  234. n167=  if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] == 21 ) {
  235. n168=    /msg = $+ $nick You got BLACKJACK!!! Winner!
  236. n169=    /inc % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] 
  237. n170=    //set %bj  [ % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] / 2 ]
  238. n171=    /inc % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] %bj
  239. n172=    /msg = $+ $nick Payoff--> One and a half times your bet 
  240. n173=    /msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits
  241. n174=    /ruser 4 $nick
  242. n175=    halt
  243. n176=  }
  244. n177=  else {
  245. n178=    if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] == 22 ) {
  246. n179=      /set % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 12
  247. n180=      /msg = $+ $nick Two aces are 12 points
  248. n181=      /msg = $+ $nick What would you like to do:
  249. n182=      /msg = $+ $nick 1. Hit
  250. n183=      /msg = $+ $nick 2. Stand
  251. n184=    }
  252. n185=    else {
  253. n186=      /msg = $+ $nick You have a total of % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] points
  254. n187=      /msg = $+ $nick What would you like to do:
  255. n188=      /msg = $+ $nick 1. Hit
  256. n189=      /msg = $+ $nick 2. Stand
  257. n190=    }
  258. n191=    /.ruser 4 $nick
  259. n192=    /.auser 5 $nick
  260. n193=    halt
  261. n194=  }
  262. n195=}
  263. n196=5:on serv:*: {
  264. n197=  if ( $parm1 == 1 ) {
  265. n198=    /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ cards ] ] ] ] ] ] 1
  266. n199=    /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ] $r(0,13)
  267. n200=    /msg = $+ $nick You drew...
  268. n201=    if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  > 10 ) /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 10
  269. n202=    else  /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ] 
  270. n203=    if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 0 ) { /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  A | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 11 | /inc % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 1 }
  271. n204=    if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 10 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  T
  272. n205=    if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 11 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  J
  273. n206=    if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 12 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  Q
  274. n207=    if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  == 13 ) /set % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ]  K 
  275. n208=    /msg = $+ $nick /-----\    
  276. n209=    /msg = $+ $nick |.....|   
  277. n210=    /msg = $+ $nick |.. $+ % [ $+ [ $nick [ $+ [ bj [ $+ [ 3 ] ] ] ] ] ] $+ ..|   
  278. n211=    /msg = $+ $nick |.....|    
  279. n212=    /msg = $+ $nick \-----/   
  280. n213=    if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] > 21 ) {
  281. n214=      if ( % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] > 0 ) { 
  282. n215=        /dec % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] 10
  283. n216=        /dec % [ $+ [ $nick [ $+ [ bj [ $+ [ ace ] ] ] ] ] ] 1
  284. n217=        /msg = $+ $nick You have a total of % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] points
  285. n218=        /msg = $+ $nick Ace is given value of one      
  286. n219=        /msg = $+ $nick What would you like to do:
  287. n220=        /msg = $+ $nick 1. Hit
  288. n221=        /msg = $+ $nick 2. Stand
  289. n222=        halt
  290. n223=      }
  291. n224=      else {
  292. n225=        /msg = $+ $nick You Bust with a total of % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ]
  293. n226=        /msg = $+ $nick Tough luck loser...
  294. n227=        /dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] 
  295. n228=        /msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits
  296. n229=        /unset % $+ $nick $+ bj $+ *
  297. n230=        /.ruser 5 $nick  
  298. n231=        halt
  299. n232=      }
  300. n233=    }
  301. n234=    else {
  302. n235=      /msg = $+ $nick You have a total of % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] points
  303. n236=      /msg = $+ $nick What would you like to do:
  304. n237=      /msg = $+ $nick 1. Hit
  305. n238=      /msg = $+ $nick 2. Stand
  306. n239=      halt
  307. n240=    }
  308. n241=  }
  309. n242=  else {
  310. n243=    /set %dealer $r(17,22)
  311. n244=    if ( %dealer == 22 )  /set %dealer $r(17,22)
  312. n245=    /msg = $+ $nick $nick stands at % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ]
  313. n246=    if ( %dealer == 22 ) { /msg = $+ $nick Dealer busts... | /set %dealer 0 }
  314. n247=    else { /msg = $+ $nick Dealer stands at %dealer }
  315. n248=    if ( %dealer > % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] ) {
  316. n249=      /msg = $+ $nick Dealer wins! 
  317. n250=      /dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] 
  318. n251=    }
  319. n252=    elseif (( %dealer < % [ $+ [ $nick [ $+ [ bj [ $+ [ score ] ] ] ] ] ] ) || ( %dealer == 22 )) { 
  320. n253=      /msg = $+ $nick You win!
  321. n254=      /inc % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  % [ $+ [ $nick [ $+ [ bj [ $+ [ bet ] ] ] ] ] ] 
  322. n255=    }
  323. n256=    else {
  324. n257=      /msg = $+ $nick It's a tie game
  325. n258=      /msg = $+ $nick Nobody wins...
  326. n259=    }
  327. n260=    /msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits
  328. n261=    /unset % $+ $nick $+ bj $+ *
  329. n262=    /.ruser 5 $nick
  330. n263=    halt
  331. n264=  }
  332. n265=}
  333. n266=1:on serv:Race: {
  334. n267=  if ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  < 1 ) goto sorry
  335. n268=  else goto game
  336. n269=  :game
  337. n270=  /.auser 2 $nick
  338. n271=  /msg = $+ $nick Welcome to the races $nick
  339. n272=  /msg = $+ $nick Today's Horses are:
  340. n273=  /msg = $+ $nick 1. %horse1
  341. n274=  /msg = $+ $nick 2. %horse2
  342. n275=  /msg = $+ $nick 3. %horse3
  343. n276=  /msg = $+ $nick Who would you like to place your bet on?
  344. n277=  halt
  345. n278=  :sorry
  346. n279=  /msg = $+ $nick You're pretty pathetic, 0 bytes...
  347. n280=  /msg = $+ $nick Get some more to play this game
  348. n281=  halt
  349. n282=}
  350. n283=2:on serv:*: {
  351. n284=  if ($parm1 == 1) goto ok 
  352. n285=  elseif ($parm1 == 2 ) goto ok
  353. n286=  elseif ($parm1 == 3 ) goto ok
  354. n287=  else /msg = $+ $nick Sorry, invalid horse number, please pick 1,2 or 3 | halt
  355. n288=  :ok
  356. n289=  /set  % [ $+ [ $nick [ $+ [ 3 ] ] ] ] $parm1
  357. n290=  /msg = $+ $nick Ok, how many credits do you wanna bet on %horse [ $+ [ $parm1 ] ]
  358. n291=  /msg = $+ $nick If %horse [ $+ [ $parm1 ] ] wins, you get double your bet back!
  359. n292=  /msg = $+ $nick (you have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credits to bet)
  360. n293=  /.ruser 2 $nick
  361. n294=  /.auser 3 $nick
  362. n295=  halt
  363. n296=}
  364. n297=3:on serv:*: {
  365. n298=  /set %temp $parm1
  366. n299=  if (( $len( [ %temp ] ) > 9 ) || ( %temp < 0 )) goto toobig
  367. n300=  if ( $parm1 > % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] ) goto tryagain
  368. n301=  else goto finish
  369. n302=  :toobig
  370. n303=  /msg = $+ $nick Sorry...
  371. n304=  /msg = $+ $nick The number you have entered is out of range
  372. n305=  /msg = $+ $nick Please enter a number between 1 and 999999999
  373. n306=  halt
  374. n307=  :tryagain
  375. n308=  /msg = $+ $nick Sorry, you don't have $parm1 credits 
  376. n309=  /msg = $+ $nick Please make a smaller bet 
  377. n310=  halt
  378. n311=  :finish
  379. n312=  /dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] $parm1
  380. n313=  /msg = $+ $nick Ok, let's see who wins the race...
  381. n314=  %horse = $r(1,3)
  382. n315=  if ( %horse == 1) /msg = $+ $nick The winner is %horse1 $+ ! Horse #1
  383. n316=  if ( %horse == 2 )  /msg = $+ $nick The winner is %horse2 $+ ! Horse #2 
  384. n317=  if ( %horse == 3 ) /msg = $+ $nick The winner is %horse3 $+ ! Horse #3 
  385. n318=  if ( % [ $+ [ $nick [ $+ [ 3 ] ] ] ] == %horse) goto yey
  386. n319=  else goto loser
  387. n320=  :yey
  388. n321=  /msg = $+ $nick Congradulations, your horse has won!
  389. n322=  %prize = 2 * $parm1
  390. n323=  /msg = $+ $nick You won %prize credits
  391. n324=  /inc % $+ ( $+ $nick $+ ) %prize
  392. n325=  /msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes
  393. n326=  /.ruser 3 $nick
  394. n327=  halt
  395. n328=  :loser
  396. n329=  /msg = $+ $nick You bet on %horse [ $+ [ % [ $+ [ $nick [ $+ [ 3 ] ] ] ] ] ]
  397. n330=  /msg = $+ $nick Sorry, your horse didn't win, please try again
  398. n331=  /msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes
  399. n332=  /.ruser 3 $nick
  400. n333=  halt 
  401. n334=}
  402. n335=1:on serv:pull: {
  403. n336=  if ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]  < 25000 ) goto sorry
  404. n337=  else {
  405. n338=    %random1 = $r(1,9)
  406. n339=    %random2 = $r(1,9)
  407. n340=    %random3 = $r(1,9)
  408. n341=    msg = $+ $nick Taking 25 Kbytes of credit for pull...
  409. n342=  msg = $+ $nick   {-Hawkee slots-}
  410. n343=  msg = $+ $nick /*****************\
  411. n344=  msg = $+ $nick |*****|*****|*****|   
  412. n345=  msg = $+ $nick |_ %random1 _|_ %random2 _|_ %random3 _|              
  413. n346=  msg = $+ $nick |*****|*****|*****|   
  414. n347=  msg = $+ $nick \*****************/
  415. n348=  dec % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] 25000
  416. n349=  if (%random1 == %random2) && (%random2 == %random3) goto win100
  417. n350=  elseif (%random1 == %random2) || (%random2 == %random3) || (%random1 == %random3) goto win50
  418. n351=  else {
  419. n352=    msg = $+ $nick Sorry, you didn't win... try again... 
  420. n353=    msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes 
  421. n354=    halt
  422. n355=  }
  423. n356=  :win50
  424. n357=  msg = $+ $nick 2 numbers match, you have won 50 Kbytes 
  425. n358=  inc % $+ ( $+ $nick $+ ) 50000
  426. n359=  msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes
  427. n360=  halt
  428. n361=  :win100
  429. n362=  msg = $+ $nick Congradulations, you have won the jackpot! 1 meg of free credits!
  430. n363=  inc % $+ ( $+ $nick $+ ) 1000000
  431. n364=  msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes
  432. n365=  halt
  433. n366=  :sorry
  434. n367=  msg = $+ $nick Sorry, you do not have enough credits to gamble
  435. n368=  msg = $+ $nick (you need 25k per pull)
  436. n369=  halt
  437. n370=}
  438. n371=#gamble end
  439. n372=#ratio start
  440. n373=1:on serv:dir*: {
  441. n374=  msg = $+ $nick Hawkee Pro v2.0
  442. n375=  msg = $+ $nick  $+ $nick $+  Credit Status: % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]
  443. n376=}
  444. n377=1:on serv:ls*: {
  445. n378=  msg = $+ $nick Hawkee Pro v2.0
  446. n379=  msg = $+ $nick  $+ $nick $+  Credit Status: % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ]
  447. n380=}
  448. n381=1:on servopen: {
  449. n382=  .ruser 2,3,4 $nick
  450. n383=  if ( % [ $+ [ ^ [ $+ [ $fservip($nick) ] ] ] ] == $null  ) {
  451. n384=    inc % $+ ( $+ $nick $+ ) %start
  452. n385=    set  % [ $+ [ $nick [ $+ [ download ] ] ] ] 0
  453. n386=    set % [ $+ [ $nick [ $+ [ sent ] ] ] ] 0
  454. n387=    set % $+ ^ $+ $fservip($nick) $nick 
  455. n388=  }
  456. n389=  elseif % [ $+ [ ^ [ $+ [ $fservip($nick) ] ] ] ] != $nick { msg $nick No free credits awarded because you have received some using the nick  $+ % [ $+ [ ^ [ $+ [ $fservip($nick) ] ] ] ]  $+ 
  457. n390=    set % $+ ( $+ $nick $+ ) 0
  458. n391=    halt
  459. n392=  }
  460. n393=}
  461. n394=1:on serv:*get*: {
  462. n395=  %check = $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] )  
  463. n396=  if ( %check == $null ) goto nogood 
  464. n397=  elseif $gets($nick) >= %maxgets goto max
  465. n398=  elseif ( % [ $+ [ $nick [ $+ [ leech ] ] ] ] == on ) goto leech
  466. n399=  elseif ( % [ $+ [ $nick [ $+ [ canget [ $+ [ $cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ] ] ] ] ] ] == $fservip($nick) ) goto complete
  467. n400=  elseif  ( % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] >= $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ) )   goto good 
  468. n401=  else goto bad 
  469. n402=  :max
  470. n403=  msg = $+ $nick Sorry, you have $gets($nick) files sending at this moment.  File get limit: %maxgets
  471. n404=  halt
  472. n405=  :leech
  473. n406=  msg = $+ $nick You have leech access, I hope you enjoy $parm2
  474. n407=  dcc send $nick $filename
  475. n408=  halt
  476. n409=  :good
  477. n410=  dec % $+ ( $+ $nick $+ ) $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ) 
  478. n411=  msg = $+ $nick Sending $parm2
  479. n412=  msg = $+ $nick You now have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes to download.
  480. n413=  msg = $+ $nick This file will be free to you in the event of a Time-out or Error in the transfer
  481. n414=  set % $+ $nick $+ canget $+ $cd $+ \ $+ $parm2 $fservip($nick)
  482. n415=  dcc send $nick $filename
  483. n416=  halt
  484. n417=  :complete
  485. n418=  msg = $+ $nick Re-sending $parm2
  486. n419=  dcc send $nick $filename
  487. n420=  halt
  488. n421=  :bad
  489. n422=  msg = $+ $nick Sorry, you do not have enough credits.  The file you have requested requires $lof($cd [ $+ [ \ [ $+ [ $parm2 ] ] ] ] ) credits, please upload on a 1 for %ratio basis to earn byte credits.
  490. n423=  msg = $+ $nick You currently have % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] bytes of download access, please upload for more and do note that you will not receive your credits until the upload is complete.  
  491. n424=  halt
  492. n425=  :nogood
  493. n426=  msg = $+ $nick Invalid file name, please use the form: <get filename.ext>
  494. n427=  halt
  495. n428=}
  496. n429=1:on filesent:*.*: {
  497. n430=  inc % $+ $nick $+ download 
  498. n431=  unset % $+ $nick $+ canget $+ $filename
  499. n432=  write $mircdir $+ download.log Sent $nopath($filename) to -= $+ $nick $+ =- on $fulldate 
  500. n433=}
  501. n434=1:on filercvd:*.*: {
  502. n435=  %temp = %ratio * $lof($filename) 
  503. n436=  inc % $+ ( $+ $nick $+ ) %temp 
  504. n437=  inc % $+ $nick $+ sent
  505. n438=  write $mircdir $+ upload.log Received $filename from $nick 
  506. n439=  msg $nick Upload of  $+ $nopath($filename) $+  complete: Credit(s) earned: %temp Total Credits: % [ $+ [ ( [ $+ [ $nick [ $+ [ ) ] ] ] ] ] ] credit(s)
  507. n440=  if $right(3,$nopath($filename)) == mid {
  508. n441=    echo 10 -a  12 $+ $nick $+ 10  has uploaded a Midi File:  12 $+ $nopath($filename) $+ 10 
  509. n442=    echo 10 -a Press F8 to Play (F9 stops song)
  510. n443=    set %sound $filename
  511. n444=  }
  512. n445=  if $right(3,$nopath($filename)) == wav {
  513. n446=    echo 10 -a  12 $+ $nick $+ 10  has uploaded a Wav File:  12 $+ $nopath($filename) $+ 10 
  514. n447=    echo 10 -a Press F8 to Play
  515. n448=    set %sound $filename
  516. n449=  }
  517. n450=}
  518. n451=#ratio end
  519. n452=1:on serv:dir*:msg = $+ $nick Hawkee Pro v2.0
  520. n453=1:on serv:ls*:msg = $+ $nick Hawkee Pro v2.0
  521. n454=1:on filesent:*.*:inc % $+ $nick $+ download 
  522. n455=1:on filercvd:*.*: {
  523. n456=  inc % $+ $nick $+ sent
  524. n457=  if $right(3,$nopath($filename)) == mid {
  525. n458=    echo 10 -a  12 $+ $nick $+ 10  has uploaded a Midi File:  12 $+ $nopath($filename) $+ 10 
  526. n459=    echo 10 -a Press F8 to Play (F9 stops song)
  527. n460=    set %sound $filename
  528. n461=  }
  529. n462=  if $right(3,$nopath($filename)) == wav {
  530. n463=    echo 10 -a  12 $+ $nick $+ 10  has uploaded a Wav File:  12 $+ $nopath($filename) $+ 10 
  531. n464=    echo 10 -a Press F8 to Play
  532. n465=    set %sound $filename
  533. n466=  }
  534. n467=}
  535. n468=#mail disabled
  536. n469=15:on chatopen:msg = $+ $me helo $ip
  537. n470=15:on chat:*: {
  538. n471=  .timer300 off
  539. n472=  msg = $+ $me mail from: %email
  540. n473=  msg = $+ $me rcpt to: %rcpt
  541. n474=  msg = $+ $me data
  542. n475=  msg = $+ $me To: %rcpt
  543. n476=  msg = $+ $me From: < $+ $me $+ > %email
  544. n477=  msg = $+ $me Subject: %subject
  545. n478=  msg = $+ $me %message
  546. n479=  msg = $+ $me .
  547. n480=  msg = $+ $me quit
  548. n481=  close -c $me
  549. n482=  unset %rcpt
  550. n483=  unset %subject
  551. n484=  unset %message
  552. n485=  .disable #mail
  553. n486=}
  554. n487=#mail end
  555. n488=#check disabled
  556. n489=15:on chat:*: {
  557. n490=  .timer300 off
  558. n491=  set %pos $pos(%email,@)
  559. n492=  set %pos [ %pos - 1 ]
  560. n493=  msg = $+ $me user $left(%pos,%email)
  561. n494=  msg = $+ $me pass %password
  562. n495=  .disable #check
  563. n496=  .enable #list
  564. n497=}
  565. n498=#check end
  566. n499=#list disabled
  567. n500=15:on chat:*:msg = $+ $me list | .disable #list | .enable #get | set %messages -3
  568. n501=#list end
  569. n502=#get disabled
  570. n503=15:on chat:*: {
  571. n504=  if -ERR isin $parms {  
  572. n505=    echo 4 -a Error:5 $parm2*
  573. n506=    echo 12 -a Please press2 F512 to re-enter login information    
  574. n507=    email
  575. n508=    close -c $me
  576. n509=  }
  577. n510=  inc %messages
  578. n511=  set %go 0
  579. n512=  set %ready 0
  580. n513=  if $parm1 == . {
  581. n514=    query Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server
  582. n515=    echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server  $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 2H14a10w14k10e2e Pro 4v2.0 12 Mail Server
  583. n516=    echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server  $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 12 Found2 %messages 12Message(s) on Mail Server
  584. n517=    echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server  $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 12For Address:2 %email
  585. n518=    if %messages > 0 { 
  586. n519=      set %number 1
  587. n520=      echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 12 Press2 F112 to View message2 %number
  588. n521=    }
  589. n522=    else { close -c $me
  590. n523=      echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 12Closing connection:2 No Mail
  591. n524=    }
  592. n525=    echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160)
  593. n526=    echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160)
  594. n527=    echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160)
  595. n528=    echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160)
  596. n529=    echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160)
  597. n530=    .disable #get
  598. n531=  }
  599. n532=}
  600. n533=#get end
  601. n534=#comeagain disabled
  602. n535=15:on chat:*: {
  603. n536=  set %pos $pos(%email,@)
  604. n537=  set %pos [ %pos - 1 ]
  605. n538=  msg = $+ $me user $left(%pos,%email)
  606. n539=  msg = $+ $me pass %password
  607. n540=  .disable #comeagain
  608. n541=  if %messages >= %number { set %go 0 | set %ready 0 | echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 12 Press2 F112 to View message2 %number } 
  609. n542=  else { echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 12No More Mail on Server, press2 F312 to close connection }  
  610. n543=  echo 12 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) Press2 F2 12 to delete previous message
  611. n544=  echo 12 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) 
  612. n545=}
  613. n546=#comeagain end
  614. n547=#getmail disabled
  615. n548=15:on chat:.: {
  616. n549=  if %messages >= %number { set %go 0 | set %ready 0 | echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 12 Press2 F112 to View message2 %number } 
  617. n550=  else { echo Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 12No More Mail on Server, press2 F312 to close connection }  
  618. n551=  echo 12 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) Press2 F2 12 to delete preceding message
  619. n552=  echo 12 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) 
  620. n553=  .disable #getmail
  621. n554=}
  622. n555=15:on chat:*: {
  623. n556=  if ( X-Attachments isin $parm1 || ( Content-Disposition: isin $parms && filename isin $parms ) ) {
  624. n557=    close -c $me
  625. n558=    echo 4 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server **********************************************************
  626. n559=    echo 4 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server  Attachment Detected, cannot retrieve with mIRC 
  627. n560=    echo 4 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server File name:5 $parm2* 
  628. n561=    echo 4 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server **********************************************************
  629. n562=    echo 2 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server Reconnecting to mail server in order to skip Attachment, please wait
  630. n563=    raw -q privmsg $me :DCC CHAT CHAT %connect 110 
  631. n564=    .disable #getmail
  632. n565=    .enable #comeagain  
  633. n566=  }
  634. n567=  if $parms == $null inc %ready 
  635. n568=  if From isin $parm1 { echo 2 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $parm1 $+ 12 $parm2* | inc %go }
  636. n569=  elseif  Subject isin $parm1 { echo 2 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $parm1 $+ 12 $parm2* | inc %go }
  637. n570=  elseif  To isin $parm1 { echo 2 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $parm1 $+ 12 $parm2* | inc %go }
  638. n571=  elseif  Date isin $parm1 { echo 2 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $parm1 $+ 12 $parm2* | inc %go }
  639. n572=  elseif %go >= 3 && %ready >= 1 { echo 2 Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server $chr(160) $parms }
  640. n573=}
  641. n574=#getmail end
  642. n575=15:on chat:*: {
  643. n576=  if -ERR isin $parm1 { 
  644. n577=    echo 12 -a Error2 $parm2* 
  645. n578=    close -c $me 
  646. n579=    echo 12 -a Press2 F112 to re-open
  647. n580=    echo 12 -a Press2 F512 to re-enter E-mail setup
  648. n581=  }
  649. n582=}
  650. [Raw]
  651. n0=#who disabled
  652. n1=352:*:echo 2 -s $parm2 12 $parm3 $+ 2@10 $+ $parm4 $+ 2 $parm5 12 $parm6* | halt
  653. n2=315:*:echo 2 -s $parm2 12 $+ $parm3* | echo 2 -s - | .disable #who | halt 
  654. n3=#who end
  655. n4=301:*:echo 2 -s $parm2 is away at the moment: $+ 12 $parm3* | halt
  656. n5=310:*:echo 2 -s $parm2 $+ 12 $parm3* | halt
  657. n6=311:*:echo 2 -s $parm2 12 $parm3 $+ 2@10 $+ $parm4 $+ 2 $parm5* | halt
  658. n7=319:*:echo 2 -s Channels:12 $parm3* | halt
  659. n8=312:*:echo 2 -s Server:12 $parm3 $+ 2 $parm4 $+ 10 $parm5* | halt
  660. n9=313:*:echo 2 -s $parm2 $parm3 $parm4 12 $+ $parm5* | halt
  661. n10=317:*:echo 2 -s Idle:10 $duration($parm3) | halt
  662. n11=318:*:echo 2 -s $parm2 12 $+ $parm3* | echo 2 -s - | halt
  663. n12=401:*:echo 2 -s $parm2 12 $+ $parm3* | halt
  664. n13=365:*: halt
  665. n14=#away disabled
  666. n15=352:*:if ( G isin $parm7 ) { echo 12 $parm2 Away:10 $parm6 | inc %away 1 } | halt
  667. n16=315:*:echo 12 $parm2 2Hawkee12 Counted 10 $+ %away $+ 12 user(s) away at the moment | .disable #away | halt 
  668. n17=#away end
  669. n18=352:*: {
  670. n19=  if ( * isin $parm7 ) {
  671. n20=    .guser ircop $parm6 1 
  672. n21=    if %block == Off && %joinad == On && % [ $+ [ $parm2 ] ] != joining notice $parm6 Welcome $parm6, my fserve is active: Trigger command: %command Ratio: 1: $+ %ratio Hawkee Pro v2.0  
  673. n22=  }
  674. n23=  elseif %joinad == On && % [ $+ [ $parm2 ] ] != joining notice $parm6 Welcome $parm6, my fserve is active: Trigger command: %command Ratio: 1: $+ %ratio Hawkee Pro v2.0 
  675. n24=  halt
  676. n25=}
  677. n26=315:*:if % [ $+ [ $parm2 ] ] == joining unset % $+ $parm2 | halt
  678.